home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 12 / Amiga Plus Sonderheft Amiga 12.iso / pd / spiele / klondike_adptools / install / datas / french.lha / 0-Menu.adpro next >
Text File  |  1997-06-21  |  2KB  |  111 lines
  1. /*
  2. ** Menu.adpro :
  3. **
  4. **  This ARexx script for ADPro v2.5 or higher, 
  5. **  displays Klondike ADPTools menu.
  6. **
  7. **  Klondike & Reko Tools © Copyright Reko Productions - All Rights Reserved.
  8. **
  9. ** $VER: Menu/French v2.0 (16.06.97) Copyright © 1995-97 Lejardinier Olivier - All Rights Reserved
  10. **
  11. */
  12.  
  13. /*
  14. ** ARexx Initializations.
  15. */
  16.  
  17.  ADDRESS "ADPro"
  18.  OPTIONS RESULTS
  19.  
  20. /*
  21. ** Constants Initializations.
  22. */
  23.  
  24.  NL = '0A'X
  25.  DNL = NL || NL
  26.  FALSE = 0
  27.  TRUE = 1
  28.  
  29. /*
  30. ** Strings initializations.
  31. */
  32.  
  33.  TITLE_Request = "Requête :"
  34.  TITLE_Confirm = "Confirmer :"
  35.  
  36.  MSG_Quit = "Quitter ?"
  37.  
  38.  MSG_Menu = "Menu Klondike ADPTools :" || NL ||,
  39.             "------------------------" || DNL ||,
  40.             "(0) A propos...                   "|| DNL ||,
  41.             "(1) Exécuter toutes les étapes :  " || NL ||,
  42.             "(2)  - Réduire des images         " || NL ||,
  43.             "(3)  - Calculer la palette globale" || NL ||,
  44.             "(4)  - Créer les cartes           " || NL ||,
  45.             "(5)  - Créer le jeu de cartes     "
  46.  
  47.  GAD_ContinueQuit = "Continuer|Quitter"
  48.  GAD_MenuQuit = "0|1|2|3|4|5|Quitter"
  49.  
  50. /*
  51. ** Display Menu.
  52. */
  53.  
  54.  Continue = FALSE
  55.  DO UNTIL ( Continue = TRUE )
  56.  
  57.   OKAYN '"'TITLE_Request'"' '"'MSG_Menu'"' '"'GAD_MenuQuit'"'
  58.   
  59.   IF ( RC = 0 ) THEN
  60.    CALL ConfirmQuit
  61.   ELSE
  62.   IF ( RC = 1 ) THEN
  63.    CALL "ADPRO:Commands2/1-About.adpro"
  64.   ELSE
  65.   IF ( RC = 2 ) THEN
  66.    DO
  67.     CALL "ADPRO:Commands2/2-ScalePics.adpro"
  68.     IF ( RESULT = 0 ) THEN
  69.      DO
  70.       CALL "ADPRO:Commands2/3-MakeGlobalPalette.adpro" "AUTO"
  71.       IF ( RESULT = 0 ) THEN
  72.        DO
  73.         CALL "ADPRO:Commands2/4-RenderCards.adpro" "AUTO"
  74.         IF ( RESULT = 0 ) THEN
  75.          CALL "ADPRO:Commands2/5-MakeCardset.adpro" "AUTO"
  76.        END
  77.      END
  78.    END
  79.    ELSE
  80.    IF ( RC = 3 ) THEN
  81.     CALL "ADPRO:Commands2/2-ScalePics.adpro"
  82.    ELSE
  83.    IF ( RC = 4 ) THEN
  84.     CALL "ADPRO:Commands2/3-MakeGlobalPalette.adpro" "MANUAL"
  85.    ELSE
  86.    IF ( RC = 5 ) THEN
  87.     CALL "ADPRO:Commands2/4-RenderCards.adpro" "MANUAL"
  88.    ELSE
  89.     CALL "ADPRO:Commands2/5-MakeCardset.adpro" "MANUAL"
  90.  
  91.  END
  92.  
  93. /*
  94. ** Quit.
  95. */
  96.  
  97. Quit:
  98.  
  99.  EXIT 0
  100.  
  101. /*
  102. ** Sub Routines
  103. */
  104.  
  105. ConfirmQuit:
  106.  OKAYN '"'TITLE_Confirm'"' '"'MSG_Quit'"' '"'GAD_ContinueQuit'"'
  107.  IF ( RC = 0 ) THEN
  108.   CALL Quit
  109. RETURN
  110.  
  111.